home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 February / LiquidLibrary 2005 February - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_frsd.ps < prev    next >
Text File  |  2003-01-03  |  3KB  |  73 lines
  1. %    Copyright (C) 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % Implementation of ReusableStreamDecode filter.
  8. % This file must be loaded after gs_lev2.ps and gs_res.ps.
  9.  
  10. level2dict begin
  11.  
  12. % ------ ReusableStreamDecode filter ------ %
  13.  
  14. /.reusablestreamdecode {    % <source> <dict> .reusablestreamdecode <file>
  15.                 % <source> .reusablestreamdecode <file>
  16.         % Collect the filter parameters.
  17.   dup type /dicttype eq { 2 copy } { dup 0 dict } ifelse
  18.   dup .rsdparams
  19.         % Construct the filter pipeline.
  20.         % The very first filter should use the value of CloseSource
  21.         % from the RSD dictionary; all the others should have
  22.         % CloseSource = true.
  23.         % Stack: source dict filters parms
  24.   2 index /CloseSource .knownget not { false } if 5 -1 roll
  25.         % Stack: dict filters parms CloseSource source
  26.   0 1 5 index length 1 sub {
  27.     4 index 1 index get
  28.         % Stack: dict filters parms CloseSource source index filtname
  29.     4 index null eq {
  30.       0 dict
  31.     } {
  32.       4 index 2 index get dup null eq { pop } if
  33.     } ifelse
  34.     3 -1 roll pop exch filter
  35.     exch pop true exch        % set CloseSource for further filters
  36.   } for
  37.         % If AsyncRead is true, try to create the filter directly.
  38.         % Stack: dict filters parms CloseSource source
  39.   4 index /AsyncRead .knownget not { false } if {
  40.     1 index { .reusablestream } .internalstopped
  41.   } {
  42.     null true
  43.   } ifelse {
  44.     pop
  45.         % No luck.  Read the entire contents of the stream now.
  46.     dup type /filetype ne {
  47.         % Make a stream from a procedure or string data source.
  48.       0 () .subfiledecode
  49.     } if
  50.     10 dict exch {
  51.         % Stack: dict filters parms CloseSource contdict file
  52.       dup 1000 string readstring
  53.       3 index dup length 4 -1 roll put not { exit } if
  54.     } loop pop
  55.         % Concatenate the contents into one big string.
  56.         % Stack: dict filters parms CloseSource contdict
  57.     0 1 index { length exch pop add } forall
  58.     .bigstring exch {
  59.         % Stack: dict filters parms CloseSource string index substring
  60.       exch 1000 mul exch 2 index 3 1 roll putinterval
  61.     } forall
  62.         % Now create the stream on the string.
  63.     1 index .reusablestream
  64.   } if
  65.         % We created the stream successfully: clean up.
  66.   4 { exch pop } repeat
  67.   1 index type /dicttype eq { exch pop } if exch pop
  68. } odef
  69.  
  70. filterdict /ReusableStreamDecode /.reusablestreamdecode load put
  71.  
  72. end            % level2dict
  73.